input bbase;
def pensquare = makepen((-.5,-.5)..(.5,-.5)..(.5,.5)..(-.5,.5)..cycle)
	scaled .1pt enddef;

sunrules;
edges ee;
edges ef;
N.height=S.height=W.width=E.width=8pt;
M.height=M.width=20pt;
p=1pt;
pen largepen;
largepen:=pencircle scaled .4pt;
defaultpen:=pencircle scaled .4pt;

vardef char.N.M=
z1=(.5p,5p); z2=(.5p,3p);
draw z1..z2 withpen pensquare xscaled 10;
x3=x5=4p; y3=4.5p; y5=3.5p; y4=y6=4p; x4=3.5p; x6=4.5p;
fill z3{-1,0}..z4{0,-1}..z5{1,0}..z6{0,1}..cycle;
path a;
a=(7.6p,2p)..(8p,2.7p){0,1}..(7p,3.3p){-1,0}..(6p,2.6p)..(4.5p,2.2p){-1,0}..(2p,4p){0,1}..(4p,6p){1,0}..(10p,4p);

path b;
b=(10p,4p)..(16p,2p){1,0}..(18p,4p){0,1}..(15.5p,5.8p){-1,0}..(14.0p,5.4p)..(13p,4.7p){-1,0}..(12p,5.3p){0,1}..(12.5p,6p);
draw a..b withpen pencircle xscaled .8p yscaled .3p rotated 90;
fill(16p,4.5p){-1,0}..(15.5p,4p){0,-1}..(16p,3.5p){1,0}..(16.5p,4p){0,1}..cycle;

draw(19.5p,5p)..(19.5p,3p)withpen pensquare xscaled 10;
draw (0,7.7p)..(20p,7.7p) withpen pensquare xscaled 5 rotated 90;
draw (0,.3p)..(20p,0.3p) withpen pensquare xscaled 5 rotated 90;
showit;%shipit;
ee=e;
enddef;

vardef char.M.W=
e:=ee rotated 90 shifted (8p,0);
enddef;

vardef char.S.M=
e:=ee rotated 180 shifted (20p,8p);
enddef;

vardef char.M.E=
e:=ee rotated 270 shifted (0,20p);
enddef;

test N.M.;
test M.W.;
test S.M.;
test M.E.;

vardef char.N.E=
begingroup;
draw (0.25p,7.75p)..(7.75p,7.75p) withpen pensquare scaled 5;
draw (7.75p,7.75p)..(7.75p,0.25p) withpen pensquare scaled 5;
fill (2p,2p)..(2.2p,4p)..(3p,5.5p)..(6p,6p)&(6p,6p)..(5.5p,3p)..(4p,2.2p)..(2p,2p)..cycle;
fill (2p,2p){-1,0}..(.7p,2.5p)&(.7p,2.5p){1,-.3}..(2.2p,4p){.2,1}..cycle;
fill (2p,2p){0,-1}..(2.5p,.7p)&(2.5p,.7p){-.3,1}..(4p,2.2p){1,.2}..cycle;
erase (5p,5.5p){-1,0}..(4.5p,5p){0,-1}..(5p,4.5p){1,0}..(5.5p,5p){0,1}..cycle;
draw(.25p,5p)..(.25p,3p) withpen pensquare xscaled 5 ;
draw(3p,.25p)..(5p,.25p) withpen pensquare xscaled 5 rotated 90;
showit;%shipit;
ef=e;
endgroup;
enddef;

vardef char.N.W=
e:=ef rotated 90 shifted (8p,0);
enddef;

vardef char.S.W=
e:=ef rotated 180 shifted (8p,8p);
enddef;

vardef char.S.E=
e:=ef rotated 270 shifted (0,8p);
enddef;

test N.E.;
test N.W.;
test S.W;
test S.E;
end

(2p,2p)..(1.5p,2.2p)..(p,2.3p){1,-1}&